   1 .
   2 .
   3 .
  10 clear 
  20 print 
  30 print "MORSE CODE"
  35 print 
  36 input "  SPEED?"D
  37 NT=D
  40 print 
  60 print "YOUR MESSAGE"
  65 print 
  67 print "  ON KEYBOARD,"
  68 print 
  69 print " THEN LISTEN FOR CODE"
  70 print 
 100 B=0
 105 B=B+1
 110 N=KP
 115 if N=106goto 400
 120 @(B)=N
 130 TV=N
 140 goto 105
 400 BC=FC
 405 for A=1to B
 410 N=@(A)
 420 gosub 500
 430 next A
 440 goto 1000
 500 clear 
 510 if N=44print "Q00  Q00  Q  Q  Q00  Q00"
 520 if N=45print "Q000000"
 530 if N=46print "Q  Q00  Q  Q00  Q  Q00"
 540 if N=48print "Q00  Q00  Q00  Q00  Q00"
 550 if N=49print "Q  Q00  Q00  Q00  Q00"
 560 if N=50print "Q  Q  Q00  Q00  Q00"
 570 if N=51print "Q  Q  Q  Q00  Q00"
 580 if N=52print "Q  Q  Q  Q  Q00"
 590 if N=53print "Q  Q  Q  Q  Q"
 600 if N=54print "Q00  Q  Q  Q  Q"
 610 if N=55print "Q00  Q00  Q  Q  Q"
 620 if N=56print "Q00  Q00  Q00  Q  Q"
 630 if N=57print "Q00  Q00  Q00  Q00  Q"
 640 if N=65print "Q  Q00"
 650 if N=66print "Q00  Q  Q  Q"
 660 if N=67print "Q00  Q  Q00  Q"
 670 if N=68print "Q00  Q  Q"
 680 if N=69print "Q"
 690 if N=70print "Q  Q  Q00  Q"
 700 if N=71print "Q00  Q00  Q"
 710 if N=72print "Q  Q  Q  Q"
 720 if N=73print "Q  Q"
 730 if N=74print "Q  Q00  Q00  Q00"
 740 if N=75print "Q00  Q  Q00"
 750 if N=76print "Q  Q00  Q  Q"
 760 if N=77print "Q00  Q00"
 770 if N=78print "Q00  Q"
 780 if N=79print "Q00  Q00 Q00"
 790 if N=80print "Q  Q00  Q00  Q"
 800 if N=81print "Q00  Q00  Q  Q00"
 810 if N=82print "Q  Q00  Q"
 820 if N=83print "Q  Q  Q"
 830 if N=84print "Q00"
 840 if N=85print "Q  Q  Q00"
 850 if N=86print "Q  Q  Q  Q00"
 860 if N=87print "Q  Q00  Q00"
 870 if N=88print "Q00  Q  Q  Q00"
 880 if N=89print "Q00  Q  Q00  Q00"
 890 if N=90print "Q00  Q00  Q  Q"
 900 return 
1000 print "Q  Q00  Q  Q00  Q"
1005 B=B-1
1010 FC=0;BC=7;NT=0
1020 for C=1to B
1030 TV=@(C)
1050 next C
1060 print "  END OF MESSAGE"
1065 NT=3
1070 if &(22)=16goto 10
1080 if &(23)=8goto 100
1110 goto 1070
>:return 
